(de methodHandlesSymbol (MethodName MethodHandle)
  (if (thread MethodName
        val
        fun?)
    (nil
      (let MethodHandles (thread MethodName
                           val
                           cadr
                           cadr)
        (when (thread MethodHandle
                (java "type")
                (member
                  (mapcar (quote MH
                            (thread MH
                              car
                              val
                              (java "type") ) )
                    (val MethodHandles) ) )
                not)
          (queue MethodHandles MethodHandle) ) ) )
    (let MethodHandles (box)
      (push MethodHandles MethodHandle)
      MethodHandles) ) )